Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/mac/files/ID99MENU.DIR/00022_demo button script.ls

Text File | 1999-04-29 | 472 b | 28 lines

property s
global demos, currtitle

on beginSprite me
  s = me.spriteNum
end

on prepareFrame me
  if currtitle = 0 then
    set the member of sprite s to "dim demo"
    exit
  end if
  thedemo = getAt(demos, currtitle)
  if thedemo <> EMPTY then
    set the member of sprite s to "demo button"
  else
    set the member of sprite s to "dim demo"
  end if
end

on mouseUp
  if currtitle = 0 then
    exit
  end if
  thedemo = getAt(demos, currtitle)
  godemo(thedemo)
end